perm filename NORMAL.LSP[F77,JMC] blob sn#325322 filedate 1977-12-29 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun normal (e) (cond ((atom e) e)
C00003 ENDMK
CāŠ—;
(defun normal (e) (cond ((atom e) e)
(t ((lambda (p a b) (cond ((atom p) (list 'if p a b))
(t (list 'if (cadr p) (list 'if (caddr p) a b) (list 'if (cadddr p) a b)))))
(normal (cadr e)) (normal (caddr e)) (normal (cadddr e))))))